Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue56/VFI/Listing7.pas

Pascal/Delphi Source File | 2000-02-29 | 474 b | 20 lines

IPlugInFrame = interface
end;
TPlugInFrame = class(TInterfacedObject, IPlugInFrame)
end;
TCustomerFrame = class(TFrame, IPlugInFrame)
private
  FPlugInFrame: IPlugInFrame;
public
  constructor Create(AOwner: TComponent); override;
  property PlugInFrame: IPlugInFrame
  read FPlugInFrame write FPlugInFrame
  implements IPlugInFrame;
end;

constructor TCustomerFrame.Create(AOwner: TComponent);
begin
  inherited;
  PlugInFrame:=TPlugInFrame.Create;
end;